home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / callid1.zip / CALLERID.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-04-16  |  2KB  |  173 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   STRING008
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     STRING005 = "P"
  40.     STRING006 = "O"
  41.     STRING011 = " -()+"
  42.     GetToken INTEGER001
  43.     GetToken INTEGER002
  44.     GetToken INTEGER003
  45.     GetToken STRING002
  46.     GetToken STRING003
  47.     GetToken STRING004
  48.     If (STRING002 <> "") Then
  49.         If (Exist(STRING002)) Then
  50.             Delete STRING002
  51.         Endif
  52.     Endif
  53.     STRING001 = CallId()
  54.     GetUser
  55.     If (((U_Sec < INTEGER001) || (U_Sec > INTEGER002)) || (STRING001 == "")) Stop
  56.     If (STRING004 <> "") Then
  57.         STRING008 = U_HVPhone
  58.         For INTEGER006 = 1 To Len(STRING011)
  59.             STRING008 = Strip(STRING008, Mid(STRING011, INTEGER006, 1))
  60.         Next
  61.         If (Left(STRING008, 1) == "1") Then
  62.             STRING008 = Mid(STRING008, 2, Len(STRING008) - 1)
  63.         Endif
  64.         If (STRING008 == "") STRING008 = "0000000000"
  65.         STRING009 = U_BDPhone
  66.         For INTEGER006 = 1 To Len(STRING011)
  67.             STRING009 = Strip(STRING009, Mid(STRING011, INTEGER006, 1))
  68.         Next
  69.         If (Left(STRING009, 1) == "1") Then
  70.             STRING009 = Mid(STRING009, 2, Len(STRING009) - 1)
  71.         Endif
  72.         If (STRING009 == "") STRING009 = "00000000000"
  73.     Endif
  74.     If (INTEGER003 == 1) Then
  75.         INTEGER004 = InStr(STRING001, "NMBR = ")
  76.         INTEGER005 = 7
  77.     ElseIf (INTEGER003 > 11) Then
  78.         INTEGER004 = INTEGER003
  79.         INTEGER005 = -11
  80.     Else
  81.         PrintLn "I don't know that IDType ("
  82.         Stop
  83.     Endif
  84.     If (INTEGER004 == 0) Stop
  85.     STRING010 = Upper(Trim(Mid(STRING001, INTEGER004 + INTEGER005, 10), " "))
  86.     If ((Left(STRING010, 1) == STRING005) && (STRING003 <> "")) Then
  87.         If (Exist(STRING003)) Then
  88.             DispFile STRING003, 4 + 2 + 1
  89.         Endif
  90.     ElseIf ((Left(STRING010, 1) == STRING006) && ("" <> "")) Then
  91.         If (Exist("")) Then
  92.             DispFile "", 4 + 2 + 1
  93.         Endif
  94.     ElseIf (((STRING004 <> "") && (Right(STRING010, Len(STRING008)) <> STRING008)) && (Right(STRING010, Len(STRING009)) <> STRING009)) Then
  95.         If (Exist(STRING004)) Then
  96.             DispFile STRING004, 4 + 2 + 1
  97.         Endif
  98.     Endif
  99.     STRING007 = "1234567890"
  100.     If (Len(STRING010) < 10) Stop
  101.     For INTEGER004 = 1 To 10
  102.         If (InStr(STRING007, Mid(STRING010, INTEGER004, 1)) == 0) Stop
  103.     Next
  104.     If (STRING002 <> "") Then
  105.         FOpen 1, STRING002, 1, 3
  106.         FPutLn 1, Left(STRING010, 3), "-", Mid(STRING010, 4, 3), "-", Right(STRING010, 4)
  107.         FClose 1
  108.     Endif
  109.     End
  110.  
  111. ;------------------------------------------------------------------------------
  112. ;
  113. ; Usage report (before postprocessing)
  114. ;
  115. ; ■ Statements used :
  116. ;
  117. ;    1       End
  118. ;    24      Goto 
  119. ;    24      Let 
  120. ;    1       PrintLn 
  121. ;    23      If 
  122. ;    3       DispFile 
  123. ;    1       FOpen 
  124. ;    1       FClose 
  125. ;    1       FPutLn 
  126. ;    1       GetUser
  127. ;    1       Delete 
  128. ;    6       GetToken 
  129. ;    5       Stop
  130. ;
  131. ;
  132. ; ■ Functions used :
  133. ;
  134. ;    1       -
  135. ;    10      +
  136. ;    2       -
  137. ;    10      ==
  138. ;    8       <>
  139. ;    5       <
  140. ;    3       <=
  141. ;    2       >
  142. ;    6       >=
  143. ;    17      !
  144. ;    10      &&
  145. ;    5       ||
  146. ;    9       Len(
  147. ;    1       Upper()
  148. ;    7       Mid()
  149. ;    5       Left()
  150. ;    3       Right()
  151. ;    2       InStr()
  152. ;    1       Trim()
  153. ;    2       Strip()
  154. ;    1       CallId()
  155. ;    4       Exist()
  156. ;
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Analysis flags : No flag
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;
  163. ; Postprocessing report
  164. ;
  165. ;    3       For/Next
  166. ;    0       While/EndWhile
  167. ;    14      If/Then or If/Then/Else
  168. ;    0       Select Case
  169. ;
  170. ;------------------------------------------------------------------------------
  171. ;                 AEGiS Corp - Break the routines, code against the machines!
  172. ;------------------------------------------------------------------------------
  173.